home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / MacOberon241.cpt / MacOberon 2.4(1) / Printer.Header.Text (.txt) < prev    next >
Oberon Text  |  1992-01-28  |  6KB  |  54 lines
  1. Syntax10.Scn.Fnt
  2. % Oberon 2.4 PostScript Output
  3. % First, store the contents of this viewer on a file by executing
  4. %    the command "Ed.StoreText" displayed in the viewer menu.
  5. %    You can change the name of the file under which the viewer
  6. %    contents will be saved by editing the viewer name in the menu.
  7. % Then, use the "Laser Writer Font Utility" supplied with
  8. %    System 7.0 to send this file to a PostScript printer.
  9. % Oberon Print Macros and Font Diacritics Encoding - Do Not Touch!
  10. /m {moveto} def
  11. /s {show} def
  12. /l { /ph exch def /pw exch def newpath moveto pw 0 rlineto 0 ph rlineto pw neg 0 rlineto closepath 0 setgray fill } def
  13. /x { /dy exch def /dx exch def newpath moveto dx dy rlineto 0 setlinewidth stroke } def
  14. /c { /pb exch def /pa exch def newpath gsave translate 1 pb pa div scale 0 0 pa 0 360 arc 0 setlinewidth stroke grestore } def /maxwh { pw ph gt {/max pw def} {/max ph def} ifelse } def /shade { gsave col 0 eq {1 setgray} if col 1 eq {0.99 setgray} if col 2 eq {0.9 setgray} if col 3 eq {0.65 setgray} if col 4 eq {0.35 setgray} if col 5 eq {0 setgray} if fill grestore } def /texture { gsave clip newpath col 6 eq { px py ph add moveto maxwh max 10 idiv 1 add { max max rlineto max neg dup 20 sub rmoveto } repeat } if col 7 eq { px py moveto maxwh max 10 idiv 1 add { max neg max rlineto max 20 add max neg rmoveto } repeat } if col 8 eq { px py moveto pw 15 idiv 1 add { 0 ph rlineto 15 ph neg rmoveto } repeat } if col 9 eq { px py moveto ph 15 idiv 1 add { pw 0 rlineto pw neg 15 rmoveto } repeat } if 0 setlinewidth stroke grestore } def
  15. /b { /col exch def /ph exch def /pw exch def /py exch def /px exch def newpath px py moveto pw 0 rlineto 0 ph rlineto pw neg 0 rlineto closepath col 6 lt {shade} {texture} ifelse } def
  16. /i { /mode exch def /ph exch def /pw exch def /py exch def /px exch def /picstr 256 string def /nofbytes pw 7 add 8 idiv ph mul def gsave px py translate pw mode 1 add mul ph mode 1 add mul scale pw ph 1 [pw 0 0 ph 0 0] {nofbytes 256 ge { currentfile picstr readhexstring pop /nofbytes nofbytes 256 sub def } { /picstr nofbytes string def currentfile picstr readhexstring pop /nofbytes 0 def } ifelse } image grestore } def
  17. /k { /pdx exch def /ph exch def /pw exch def /py exch def /px exch def /picstr 256 string def /nofbytes pw 7 add 8 idiv ph mul def gsave currentpoint translate px py translate pw ph scale pw ph true [pw 0 0 ph 0 0] { nofbytes 256 ge { currentfile picstr readhexstring pop /nofbytes nofbytes 256 sub def } { /picstr nofbytes string def currentfile picstr readhexstring pop /nofbytes 0 def } ifelse } imagemask grestore pdx 0 rmoveto } def /OberonEncoding [ 128 /Adieresis 129 /Odieresis 130 /Udieresis 131 /adieresis 132 /odieresis 133 /udieresis 134 /acircumflex 135 /ecircumflex 136 /icircumflex 137 /ocircumflex 138 /ucircumflex 139 /agrave 140 /egrave 141 /igrave 142 /ograve 143 /ugrave 144 /eacute 145 /edieresis 146 /idieresis 147 /ccedilla 148 /aacute 149 /ntilde ] def /recode { findfont /basefontdict exch def /OberonFont basefontdict maxlength dict def basefontdict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy OberonFont 3 1 roll put } { exch OberonFont 3 1 roll put } ifelse } { pop pop } ifelse } forall OberonEncoding aload pop OberonEncoding length 2 idiv {OberonFont /Encoding get 3 1 roll put} repeat dup OberonFont exch /FontName exch put OberonFont definefont pop } def
  18. /f { cvn currentdict exch get setfont } def /ObHelv /Helvetica recode /ObHelvBold /Helvetica-Bold recode /ObHelvOblique /Helvetica-Oblique recode /ObCourier /Courier recode
  19. /z { newpath moveto curveto 0 setlinewidth stroke } def
  20. /p { /#copies exch def showpage restore save } def
  21. % Oberon Font Translation - Add Your Own as Required
  22.  /Syntax8.Scn.Fnt /ObHelv findfont 30 scalefont def
  23.  /Syntax8i.Scn.Fnt /ObHelvOblique findfont 30 scalefont def
  24.  /Syntax8b.Scn.Fnt /ObHelvBold findfont 30 scalefont def
  25.  /Syntax8m.Scn.Fnt /ObHelvBold findfont 30 scalefont def
  26.  /Syntax10.Scn.Fnt /ObHelv findfont 37 scalefont def
  27.  /Syntax10i.Scn.Fnt /ObHelvOblique findfont 37 scalefont def
  28.  /Syntax10b.Scn.Fnt /ObHelvBold findfont 37 scalefont def
  29.  /Syntax10m.Scn.Fnt /ObHelvBold findfont 37 scalefont def
  30.  /Syntax12.Scn.Fnt /ObHelv findfont 44 scalefont def
  31.  /Syntax12i.Scn.Fnt /ObHelvOblique findfont 44 scalefont def
  32.  /Syntax12b.Scn.Fnt /ObHelvBold findfont 44 scalefont def
  33.  /Syntax12m.Scn.Fnt /ObHelvBold findfont 44 scalefont def
  34.  /Syntax14.Scn.Fnt /ObHelv findfont 50 scalefont def
  35.  /Syntax14i.Scn.Fnt /ObHelvOblique findfont 50 scalefont def
  36.  /Syntax14b.Scn.Fnt /ObHelvBold findfont 50 scalefont def
  37.  /Syntax14m.Scn.Fnt /ObHelvBold findfont 50 scalefont def
  38.  /Syntax16.Scn.Fnt /ObHelv findfont 59 scalefont def
  39.  /Syntax16i.Scn.Fnt /ObHelvOblique findfont 59 scalefont def
  40.  /Syntax16b.Scn.Fnt /ObHelvBold findfont 59 scalefont def
  41.  /Syntax16m.Scn.Fnt /ObHelvBold findfont 59 scalefont def
  42.  /Syntax20.Scn.Fnt /ObHelv findfont 74 scalefont def
  43.  /Syntax20i.Scn.Fnt /ObHelvOblique findfont 74 scalefont def
  44.  /Syntax20b.Scn.Fnt /ObHelvBold findfont 74 scalefont def
  45.  /Syntax20m.Scn.Fnt /ObHelvBold findfont 74 scalefont def
  46.  /Syntax24.Scn.Fnt /ObHelv findfont 88 scalefont def
  47.  /Syntax24i.Scn.Fnt /ObHelvOblique findfont 88 scalefont def
  48.  /Syntax24b.Scn.Fnt /ObHelvBold findfont 88 scalefont def
  49.  /Syntax24m.Scn.Fnt /ObHelvBold findfont 88 scalefont def
  50.  /Courier8.Scn.Fnt /ObCourier findfont 30 scalefont def
  51.  /Courier10.Scn.Fnt /ObCourier findfont 37 scalefont def
  52. .23 .23 scale 100 50 translate (Syntax10.Scn.Fnt) f save
  53. % end of header - mf 28.1.92
  54.